- Principale causa di morbositร , invaliditร e mortalitร
- Incessante attivitร di ricerca in campo medico
- Interesse guidato da esperienze personali
1/9/2020
Heart Disease UCI, dataset a cura di:
max_heart_rate <- function(age){
return(220-age)
}
max_heart_rate(30)
## [1] 190
max_heart_rate(50)
## [1] 170
- BS < 100 mg/dL (normale)
- 100 mg/dl <= BS <= 120 mg/dL (aumento del rischio)
- BS > 120 mg/dL (alto rischio)
Il dataset indica, tramite la variabile FastingBloodSugar, lโeventuale superamento del valore di 120 mg/dL.
Che cosโรจ il colesterolo sierico?
Una misura quantitativa di HDLC, LDLC e triglicerici presenti nel sangue
“I valori di colesterolo sierico, anche se sopra il limite massimo, non sono significativamente correlati con la quantificazione del rischio cardiovascolare. ร consigliabile concentrarsi sul miglioramento della frazione HDL, sul potenziamento delle difese immunitarie e sul consumo di antiossidanti”.
Numero di casi di pazienti sani che hanno dimostrato anomalie nel tracciato ST a riposo:
## n ## 1 0
Con “Grandi Vasi”, ci si riferisce a:
set.seed(1996)
# Sostituzione dei valori 1 e 0 riferiti a presenza e assenza di malattia cardiaca con "true" e "false"
model <- heart_original %>%
mutate(HasDisease = as.character(HasDisease)) %>%
mutate(HasDisease = fct_recode(HasDisease, true = '1', false = '0'))
# Partizionamento del dataset in funzione del test del modello risultante
training_slice <- createDataPartition(model$HasDisease, p = 0.80, list = FALSE)
training <- model[training_slice,]
testing <- model[-training_slice,]
# Regressione Logistica
trControl <- trainControl(summaryFunction = twoClassSummary,
classProbs = TRUE)
logistic_regressor <- train(HasDisease ~ ., data = training, method = 'glm',
family = binomial(link = 'logit'), trControl = trControl)
predictions <- predict(logistic_regressor, newdata = testing, type = 'prob')
comparation <- data.frame(actual = testing$HasDisease,
predicted = predictions$true)
confusionMatrix(data = cut(predictions$true,
breaks = c(-Inf, 0.5, Inf),
labels = c('false', 'true')),
reference = testing$HasDisease,
positive = 'true', mode = 'everything')
## Confusion Matrix and Statistics ## ## Reference ## Prediction false true ## false 23 8 ## true 4 25 ## ## Accuracy : 0.8 ## 95% CI : (0.6767, 0.8922) ## No Information Rate : 0.55 ## P-Value [Acc > NIR] : 4.67e-05 ## ## Kappa : 0.6013 ## ## Mcnemar's Test P-Value : 0.3865 ## ## Sensitivity : 0.7576 ## Specificity : 0.8519 ## Pos Pred Value : 0.8621 ## Neg Pred Value : 0.7419 ## Precision : 0.8621 ## Recall : 0.7576 ## F1 : 0.8065 ## Prevalence : 0.5500 ## Detection Rate : 0.4167 ## Detection Prevalence : 0.4833 ## Balanced Accuracy : 0.8047 ## ## 'Positive' Class : true ##
“La medicina รจ un miscuglio di scienza, saggezza e tecnologia.”